home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 201-220 / scopedisk205 / cross / source / src.lha / Cross / Source / CrossFont.mod < prev    next >
Encoding:
Modula Implementation  |  1992-02-10  |  6.9 KB  |  147 lines
  1. IMPLEMENTATION MODULE CrossFont;
  2.  
  3. (* exclusive available font - generated with M2Amiga Report FontConverter *)
  4.  
  5.  
  6. FROM SYSTEM IMPORT CAST, ASSEMBLE, ADR;
  7. FROM GraphicsD IMPORT TextFontPtr, TextFont, FontFlagSet, FontStyleSet;
  8. FROM Heap IMPORT Allocate;
  9.  
  10.  
  11. PROCEDURE Data; (*$ EntryExitCode := FALSE *)
  12.  
  13. BEGIN
  14.   ASSEMBLE(
  15.     DC.W $00063,$03367,$0D99C,$0180D,$082D1,$08000,$00006,$07861, 
  16.          $0E3C3,$09F9E,$07E78,$0F000,$00300,$00C3C,$000F3,$0E3CF, 
  17.          $09FBF,$03ECC,$0F3F6,$06C10,$0B37C,$079F1,$0F7EC,$0D9B3, 
  18.          $066CD,$0F8F6,$00F06,$00018,$0F998,$0318C,$00C2A,$09F0F, 
  19.          $08C18,$06FE6,$0061C,$0CD98,$0C3E8,$04F0D,$0FEFC,$0F0C7, 
  20.          $00E0C,$0337F,$000C1,$0E6C3,$00000,$00063,$037FD,$08336, 
  21.          $03018,$0C1E1,$08000,$0000C,$0CCE3,$03667,$09830,$006CD, 
  22.          $09800,$0061F,$08666,$0019B,$0366C,$0D830,$060CC,$06036, 
  23.          $0CC19,$0BB66,$0CD9B,$0018C,$0D9B3,$03CCC,$030C3,$0030F, 
  24.          $0000C,$0CD98,$06186,$01F95,$03198,$0D80C,$0FFE0,$01F36, 
  25.          $07998,$0C780,$01B1B,$00601,$099E1,$08318,$03336,$001C3, 
  26.          $03360,$00000,$00060,$00367,$0861D,$00018,$0C3F7,$0E01F, 
  27.          $08018,$0CC60,$060CD,$09F3E,$00C78,$0F983,$00C00,$0030C, 
  28.          $039FB,$0E60C,$0DF3E,$06EFC,$06037,$08C1F,$0BF7C,$0CDF1, 
  29.          $0E18C,$0D9BF,$01878,$060C1,$08319,$08000,$0F998,$0E187, 
  30.          $0032A,$08331,$0998C,$0CFE6,$03678,$0CCF0,$00240,$00F36, 
  31.          $00000,$0F0C3,$00600,$03336,$030C1,$0E1B6,$00000,$00000, 
  32.          $007F6,$0CC36,$00018,$0C1E1,$08000,$00030,$0CC61,$0866F, 
  33.          $0C1B3,$018CC,$01800,$0061F,$08600,$0019B,$0366C,$0D830, 
  34.          $066CC,$06336,$0CC19,$0B760,$0DDB0,$0318C,$0CF33,$03C30, 
  35.          $0C0C0,$0C300,$00000,$0CD98,$06186,$00015,$06331,$09BD8, 
  36.          $00FE6,$01F30,$079F8,$0C1E0,$0001B,$00000,$00007,$08300, 
  37.          $03F36,$001E0,$0036C,$0C000,$00060,$0036F,$0999B,$0000D, 
  38.          $082D1,$08600,$01860,$078F3,$0F3C1,$09F1E,$01878,$0F183, 
  39.          $00300,$00C18,$0019B,$0E3CF,$09FB0,$03ECC,$0F1E6,$06FD9, 
  40.          $0B360,$07D9B,$0E187,$08621,$06631,$0F8F0,$06F00,$03F00, 
  41.          $0CCF8,$0318C,$0002A,$0BE1F,$00E70,$0CFE6,$0067E,$0CC60, 
  42.          $0C7C0,$01F8D,$08000,$001E0,$00E00,$03736,$00003,$0F6C7, 
  43.          $08000,$00000,$00000,$00000,$00000,$00000,$00C00,$00000, 
  44.          $00000,$00000,$00000,$00000,$00006,$00000,$00000,$00000, 
  45.          $00000,$00000,$00000,$00000,$00000,$00000,$00000,$00000, 
  46.          $00000,$00000,$00000,$00000,$00000,$00000,$00000,$00015, 
  47.          $00000,$00000,$00FE0,$00000,$00000,$00000,$00000,$00000, 
  48.          $00000,$00000,$03000,$00000,$00000,$00000 
  49.   END);
  50. END Data;
  51.  
  52.  
  53.  
  54. PROCEDURE Loc; (*$ EntryExitCode := FALSE *)
  55.  
  56. BEGIN
  57.   ASSEMBLE(
  58.     DC.W $00000,$00007,$00007,$00007,$0000E,$00007,$00015,$00007, 
  59.          $0001C,$00007,$00023,$00007,$0002A,$00007,$00031,$00007, 
  60.          $00038,$00007,$0003F,$00007,$00046,$00007,$0004D,$00007, 
  61.          $00054,$00007,$0005B,$00007,$00062,$00007,$00069,$00007, 
  62.          $00070,$00007,$00077,$00007,$0007E,$00007,$00085,$00007, 
  63.          $0008C,$00007,$00093,$00007,$0009A,$00007,$000A1,$00007, 
  64.          $000A8,$00007,$000AF,$00007,$000B6,$00007,$000BD,$00007, 
  65.          $000C4,$00007,$000CB,$00007,$000D2,$00007,$000D9,$00007, 
  66.          $000E0,$00007,$000E7,$00007,$000EE,$00007,$000F5,$00007, 
  67.          $000FC,$00007,$00103,$00007,$0010A,$00007,$00111,$00007, 
  68.          $00118,$00007,$0011F,$00007,$00126,$00007,$0012D,$00007, 
  69.          $00134,$00007,$0013B,$00007,$00142,$00007,$00070,$00007, 
  70.          $00149,$00007,$00150,$00007,$00157,$00007,$0015E,$00007, 
  71.          $00165,$00007,$0016C,$00007,$00173,$00007,$0017A,$00007, 
  72.          $00181,$00007,$00188,$00007,$0018F,$00007,$00196,$00007, 
  73.          $0019D,$00007,$001A4,$00007,$001AB,$00007,$001B2,$00007, 
  74.          $001B9,$00007,$000E7,$00007,$000EE,$00007,$000F5,$00007, 
  75.          $000FC,$00007,$00103,$00007,$0010A,$00007,$00111,$00007, 
  76.          $00118,$00007,$0011F,$00007,$00126,$00007,$0012D,$00007, 
  77.          $00134,$00007,$0013B,$00007,$00142,$00007,$00070,$00007, 
  78.          $00149,$00007,$00150,$00007,$001C0,$00007,$0015E,$00007, 
  79.          $00165,$00007,$001C7,$00007,$00173,$00007,$0017A,$00007, 
  80.          $00181,$00007,$00188,$00007,$0018F,$00007,$001CE,$00007, 
  81.          $001D5,$00007,$001DC,$00007,$001E3,$00007,$001EA,$00007, 
  82.          $001F1,$00007,$001F8,$00007,$001FF,$00007,$00206,$00007, 
  83.          $0020D,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  84.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  85.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  86.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  87.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  88.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  89.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  90.          $00000,$00007,$0021B,$00007,$00222,$00007,$00229,$00007, 
  91.          $00230,$00007,$00237,$00007,$0023E,$00007,$00245,$00007, 
  92.          $0024C,$00007,$00214,$00007,$00253,$00007,$0025A,$00007, 
  93.          $00261,$00007,$0005B,$00007,$00214,$00007,$00268,$00007, 
  94.          $0026F,$00007,$00276,$00007,$0027D,$00007,$00284,$00007, 
  95.          $0028B,$00007,$00292,$00007,$00299,$00007,$002A0,$00007, 
  96.          $00054,$00007,$002A7,$00007,$002AE,$00007,$002B5,$00007, 
  97.          $00214,$00007,$00214,$00007,$00214,$00007,$002BC,$00007, 
  98.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  99.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  100.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  101.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  102.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  103.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  104.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  105.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  106.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  107.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  108.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  109.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  110.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  111.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  112.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007, 
  113.          $00214,$00007,$00214,$00007,$00214,$00007,$00214,$00007 
  114.   END);
  115. END Loc;
  116.  
  117.  
  118.  
  119. PROCEDURE CreateFont(): TextFontPtr;
  120.  
  121. VAR font: TextFontPtr;
  122.  
  123. BEGIN
  124.   Allocate(font,SIZE(TextFont));
  125.   IF font # NIL THEN
  126.     WITH font^ DO
  127.       ySize     := 00006H;
  128.       xSize     := 00007H;
  129.       baseline  := 00006H;
  130.       boldSmear := 00001H;
  131.       accessors := 00001H;
  132.       modulo    := 0005AH;
  133.       loChar    := CHR(00020H);
  134.       hiChar    := CHR(000FFH);
  135.       style     := CAST(FontStyleSet,SHORTCARD(00000H));
  136.       flags     := CAST(FontFlagSet,SHORTCARD(00042H));
  137.       charData  := ADR(Data);
  138.       charLoc   := ADR(Loc);
  139.       charSpace := NIL;
  140.       charKern  := NIL;
  141.     END;
  142.   END;
  143.   RETURN font;
  144. END CreateFont;
  145.  
  146.  
  147. END CrossFont.